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NN NN CCCCCCCC PPPPPPPP cccccccc 000000 NN NN MM MM AAAAAA NN NN 
NN NN CCCCCCCC ~PPPPPPPP ccccccce 000000 NN NN MM MM AAAAAA NN NN 
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NN NN CC PP Py. tt 00 0O N NN AA AA NN NN 
NNNN NN CC PP PP CC 00 00 NNNN NN MM MM MM AA NNNN NN 
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-SEP-19 NCP.SRCIJNCPCONMAN.MAR; 1 
NCPCONMAN - Console Carrier Requester Network Management 
"¥04=000" ‘ * . 
— ——————— 


COPYRIGHT (c) 1978 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor ice 
N oo CE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION E C TWARE Y OTHER 
Pp 


— — > 
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sf 
3* * 
3* 
3* L J 
3* * 
3* Is ® 
3* LY * 
;@ INCLU * 
* PIE * 
;* OTHER PERS * 
;* TRANSFERRED. x 
3* * 
¢* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* D SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
3* * 
3* * 
3* * 
3* * 
3* * 
3* * 


DIGITAL ASSUMES NO RESPONS . 
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FOR THE USE OR RELIABILITY OF ITS 
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¢ FACILITY: REMOTE CONSOLE CARRIER (NI) 

; ; ABSTRACT: 

THIS PROGRAM RUNS ON A LOCAL NODE TO ALLOW A TERMINAL TO APPEAR TO 
BE LOCALLY CONNECTED TO A REMOTE CONSOLE. 

; ¢ ENVIRONMENT: VAS = USER MODE 


: ; AUTHOR: Scott G. Davis, 25-Mar-1983 
s ; MODIFIED BY: 
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.SBTTL DECLARATIONS 
; DEFAULT ADDRESSING MODE 

-DEFAULT DISPLACEMENT WORD 
INCLUDE FILES: 


SNF BDEF 
SNMADEF 


; MACROS: 

‘ .MACRO ONERROR ACTION, ?L 
BLBS —- ROLL 

ACTION 

-ENDM ONERROR 

: EQUATED SYMBOLS: 

iF = 1 

CR = 18 


***NOTE References to PDBs assume they are of the form: 


; Network function block definitions 
; Network management definitions 


VIEW o WN OOONOAUE Wt OO 
2* 


SASS SSP PA AAA AAA ATU 


-BYTE presence-flag 
-BLKB nn - data 


NN 
WON 


: OWN STORAGE: 


-PSECT CONCARSPURE ,NOWRT ,NOEXE 
~SBTTL READ ONLY DATA 


Ww 


NOT_NI_MSG: “Lone 7 te : Error message 
6 10$: .ASCIIL <LF>/Operation valid only on Ethernet/<CR><LF> 
7 20$: 


cocD 8|.60 —- CCD CD COCDCOCO~) 
‘co 20 


8 NET_DESC: -ASCID /_NETO:/ 
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NC 


REABJORITE BATAT reauester network Fans "S7SEb= 1382 83:99:99 HARE MeR IRECEONMANomaR;1 “»e44 
0000 Bee CONCARS IMPURE .NOEXE , WRT, LONG 
5 


00000008 10SB: .BLKQ 1 : 1/0 status block 

80000010 CIRC_DESC: -BLKQ 1 ; Descriptor to pass to SASSIGN 
1 1 NICE_MSG_END: .BLKL 1 ; Pointer to end of message 

00000016 14 100 NETCHAN: -BLKw 1 : Network I/0 channel 


wea 
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EP=19 
-PSECT CONCARSCODE ,NOWRT 


NCP.SRCJNCPCONMAN.MAR; 1 
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CONSPARSE NICE 


This routine takes a parameter ID, locates it in a NICE message, and 
parses the data associated with the parameter. 


CALLING SEQUENCE: 
CALLS #4,CONSPARSE_NICE 
INPUT PARAMETERS: 
R1,R2 <= Message descriptor 
4 (AP) ~ Parameter type to match 
B(AP) = Address to store data, if parameters match 
IMPLICIT INPUTS: 
NICE response message for a NODE, of the form: 
-BYTE 1 
-WORD error detail 
-BYTE NMASC_ENT_NOD 
«WORD node address 
at) node name 


«WORD PARAM_ID (DATA _ID from network management spec) 
-WORD PARAM_TYPE (DATA TYPE from network management spec) 


OUTPUT PARAMETERS: 
RO - O==> parameter not found, 1==>parameter found 
IMPLICIT OUTPUTS: 


If parameter is in message, it is stored at the address provided, 
in the format that is appropriate, e.g. counted ASCII string. 


COMPLETION CODES: 
SIDE EFFECTS: 


None 
CONSPARSE NICE:: ~ WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9,R1IO,R11> 
cCRL Assume parameter is not found 


ADDL RY .RZ.NICE_MSG_END : Store pointer to end of message 
#3,R Skip response code and error detail 


ASSUME NMASC_ENT_NOD £0 0 


NC 


J 8 
PC rier Requester Network Mana 16-SEP-1984 02:00: AX/VMAS # v04-00 P 
yOus000 T . z eet 85:99:99 ENCE. SRCINGPCONMAN MAR: 1 en 
5 TSTB (R2)+ : Check for node entity 
6 BNEQ 100$ 3; If NEQ bogus msg 
$Bvte Cuan -EEuntRABPNAR™ Bone fotpaueres 
; mov ZBL coe) eRe ss , ; ges Lengeh of node name 
° : Store n en 
PUSH ni 3; Save original sossege lth 
R3,(R2), (RO) ; Store name 
MOVL R1,R2 ; Reset message pointer 
R1 ; Restore message Length 


; Main parsing loop 
208: CMPL Re NICE_MSG_END At end of message? 
8 106$ If GEQU yes = param not found 
Don't store unless there is a match 
is by the param? 


R11 
CMP (R2)+,4(AP) 
08 Q no - just skip over 


MOVL (AP) ,R11 Need to store param - get its address 
30$ CALLS #0 DECODE_TYPE Decode the parameter 

TSTL Rif Was data stored? 

BEQL 20$ If EQL no = keep looking 

MOVL #1,R0 Parameter found 


VOOR NONE UMNO Doo WoO Ow >— 
wv 
Soe 
v<-< 
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Done 
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DECODE_TYPE = decode NICE message data type, possibly storing data 
This routine may be called recursively, for coded-mltiples 
CALLING SEQUENCE 


CALLS #0,DECODE_TYPE 
INPUTS: 


Re = points to param type in —* 
R11 = points to data storage area; O==>just skip mu. age field 


OUTPUTS: 
Data may be stored 


0600 ECODE_TYPE: -WORD “M<RI,R10> 
3 38 9A MOVZBL (R2)+,R10 : Get the param type 
9 A 0 MOVL 5 3; Make a copy 
SA CO 8F BICcB #°C<NMASM_PTY_CLE>,R10 ; Get no. of fields or bytes 
F 59 O7 €1 BBC #NMASV_PTY_COB,R9,100$ : If BC not encoded 
1 59 E1 BBC #NMASV_PTY_MUL,R9,175$ ; If BC not coded-multiple 
A OD PUSHL R 3; Save recursion count 
E6 AF 00 4 108: CALLS #0,DECODE_TYPE ; Make recursive call 
F9 F F SOBGTR (SP),10$ : Loop 
2 11 6RB 3; Common exit 
; Type is not coded 
06 59 66 fo 100s: BBS #NMASV_PTY_ASC,R9,150$ ; If BS Image ASCII data 
5A FO BF BICB #*C<NMASM_PTY_NLE>,R10 ; Get no. of characters of data 
— ? a BNEQ : If NEQ not image hex 
5A 2 OA 150$: MOVZBL (R2)+,R10 ; Get Lth of image data 
8 TSTL R1 ; Storing? 
8 1 BEQL 180$ 3; If EQL no 
88 A 90 MOVB R10,(R11)+ ; Store Lth of string 
09 11 BRB 190$ 3; Go to common code 
3; Type is coded, but not multiple 
58 D5 175$: STL R11 : Storing? 
2 1 BNEQ 190$ : If NEQ yes 
52 ao @ 180$: ADDL2 R10,R2 3; Update message pointer 
$ 1 BRB 200$ > Done 
88 2 190$: MOVB (R2)+,(R11)+ ; Store a byte 
FA SA F SOBGTR R10,190$ : Loop 
04 200$: RET : Done 


Be Se Be Oe Be Se Be Be Se Se Be Be Se Se FHS Se Ge Be Ge Se Ge Fe Se Se Ge Se FH Se oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se FHSS Se Se ae 
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yousb00 READ/WRITE DATA : —— 95:00:99 ENCE. SRCINEPCONMAN BAR: 1 ° (1) 
a : 
2 9 CONSGET_SLI = translate service circuit into VMS device name 
> tg ; INPUTS: : 
4 te 3 Circuit name in .ASCIC in PDB$G_CON_SLI . 
9 8 3 
9 4 3 
9 48 CONSGET_SLI:: ; 
9 4 SASSIGN_S DEVNAM = NET_DESC, CHAN = NETCHAN ; 
on 29 ONERROR RET : If error done ; 
56 0000'CF 3 947 26 MOVAB CONSNFB,R6 3; Get address of NFB ; 
22. «9 AC 25 MOVB #NFBSC_FC_SHOW,- : This is a show function : 
66 AE 54 NFBSB_FCTTR6) 3 
04 90 OOAF 55 MOVB oun eat DB_CRI,- 3; Circuit database 3 
02 A6 081 36 NFB$B_DATABASE (R6) : 
00 90 008 5 MOVB #nFBSC_OP_EQL,- 3 Match criterion 3 
03 A6 0B 58 NFB$B_OPER(R6S ; 
04020041 8F D0 0087 59 MOVL #NFBSC_CRI_NAM,- ; Match on circuit name 3 
8 46 0BD 60 NFBSL SRCH_KEY(R6) $ 
040100 8 8F DO OOBF 61 MOVL #NFBSC_CRI-TYP,- : I want the device type back : 
10 A6 OCs 8 NFBSL_FLDIB(R6S : 
04020042 8F D0 O0C 6 MOVL #NFBSC_CRI_VMSNAM,- : I want the VMS device name back 3 
A OCD 64 NFBSL_FLDIB+4(R6) 3 
50 O0O01'CF 9E OOCF 65 MOVAB PDB$G_CON_SLI+1,R0 3; Point to circuit name 3 
53 QO04°CF GE 83 66 MOVAB CONSP2BUFF4,R3 ; Point to search key storage ; 
8 80 98 0009 67 MOVZBW (RO)+,(R3)+ ; Store Length of name : 
63 60 FE A3 28 OODC 268 MOVC3  =2(R35, (RO), (R3) : Store the name ; 
0E1 69 $Q10W_S FUNC=#{0$_ACPCONTROL,- : Issue the control function 3 
0E1 70 CHAN=NETCHAN,- : 
0E1 71 = ~ 3 
00E1 fe P1=CONSNEB DESC,- F 
OE1 27 P2=#CONSP2BUF _DESC,- ; 
0g 74 P4=#CONSP4BUF ~DESC ; 
VOB 375 ONERROR RET ; 
50 000° CF DO 011 7 MOVL 10SB,R0 3; Get I0SB $ 
0000'°8F 50 81 011 78 CMPW =s- RO, #SS$_ENDOFF ILE : Legitimate device? ; 
05 12 O11C 79 BNEQ $ 3; If NEQ maybe 3 
50 0000'8F B60 011 80 MOVW #SS$_NOSUCHDEV,RO ; Return this error : 
! 1 5$: ONERROR RET 3; If error, so long : 
50 000° CF 4 127 5 MOVAB CONSP4BUF ,RO ; Get address of response buffer 3 
D1 O12Cc 4 CMPL (RO)+,@NMASC_CIRTY_NI : Is this an Ethernet circuit? : 
13 O12F + BEQL 10$ 3; If EQL yes 3 
33 BOO ce D 131 § MOVL NOT_NI_MSG+4,R3 ; Address of message 3 
2 000° CF 136 MOVL NOT é ; Length of message 3 
FEC2" 1 : BSBU 4«=s-s NCPSTTY_WRITE : Sutput the message 3 
4 ; ; 3 RET 3; That is all! : 
51 g 08" CF —E O13F 91 10$: MOVAB CIRC_DESC,R1 3; Point to descriptor area 3 
1 0 ¢ 144 3 MOVZWL (RO)F,(RIS+ : Get the length of the name : 
DO 0147 29 MOVL . RO,(R1I) : Get its address 3 
0000° CF 1 DE O146A 94 MOVAL ~(R1) ,CONSXE_DESCADDR ; Move to desc addr to common place : 
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NCPCONMAN - Console Carrier Requester Network Mana 19-se- 138 AX/VMS Macro V04-00 
Symbol table -SEP-19 NCP.SRCINCPCONMAN.MAR; 1 
Cine pesc : 09000008 : 
CONSGET_SLI 8 § 4 
SNFB V x 4 
CONSNFB_DESC eeeeenee 8 6X 4 
C P2B0F eererene x 4 
CONSP2BUF _DESC eeekkent x 4 
CONSP4BUF eeereree x 4 
CONSP4BUF _DESC ateeenee =X 4 
C ARSE NICE 00000000 RG 4 
CON _SHO@_NODE eeeeenne xX Q4 
CONSW_ADDR_DNA ekenenee x 8 
CONSXE_DESCADDR eeeneene x 4 
CR = 0000000D 
DECODE_ TYPE 0000004D R 04 
10$_ACPCONTROL aeeeeeee KX 04 
10S6 00000000 R 03 
LF = 0000000A 
NCPSTTY_WRITE eeereeee =X 06 
NETCHAN 00000014 R 03 
NET_DESC 00000028 R 02 
NF BSB_DATABASE = 88 
NFBSB_FCT = 000000 
NFBSB_OPER = 0000000 
NFBSC_CRI_NAM = 04020041 
NFBSC_CRI_TYP = et ph 4t3: 
NFBSC_CRI_VMSNAM = 86386 
NFBSC_DB_CTRI = 808 0004 
NFBSC_FC_SHOW = 000000 
NFBSC_OP_EQL = 000000 
NFBSL_FLBID = 0000001 
FBSL_SRCH_KEY = 86865 
NICE_ASG ERD 00000010 R 03 
SC_CIRTY_NI = 808668 
2 XN.NDO = 8860 
NMASM_PTY_CLE = 0000003F 
SM_PTY_NLE = 808 f 
NMASV_PTY_ASC = 000000 $ 
NMASV~PTY~COD = 0000000 
NMASV_ PTY MUL = 44943 
T_NY_mSG 00000000 R 02 
Sc C SLI eeeeeene x 04 
SS$_ERDOFFILE ekeerene x 04 
$S$_NOSUCHDEV ekeneene x be 
SYSSASSiGN teeeeene GX 4 
YS$Q10W eeeeneee GX 04 
wer ewe em eee ee ee ere + 
! Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
0000000 ( 0.) O( 0.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
— Se a 
CONCAR$ IMPURE 0 8 16 ¢ 35°} § ( 33 NOPIC USR CON” REL LCL NOSHR NOEXE ROD WRT NOVEC LONG 
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Psect synopsis =SEP=-1984 213: NCP. SRCINCPCONMAN.MAR; 1 (1) 


CONCARSCODE 00000150 (¢ 336.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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! Performance indicators : 


—— — — 


Arend 
Initialization 1 8:00:00. 08 0:00: 1-3) 

Sylora, RED 
——2 of BETES BHR sg 
Symbol table output ? 00:08  00:00:00.12 
Prect synopsis output 3 —833838 00:00:00.0 

Cross-reference output 8 OF 80: 9.99 Bp BO 88-20 
Assembler run totals 64 00:00:17.26 00:00:53.96 


The working set Limit was 1650 pages. 

67147 bytes (132 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1394 non-local and 18 local symbols. 
297 source lines were read in Pass 1, producing 18 object records in Pass 2 

17 pages of virtual memory were used to define 16 macros. 


— SOE BREE RO MORO eS + 


Macro Library name Macros defined 
=B35Ssbunse: SHRLIBINET.MLB; 1 1 
“$255$DUA28: et NMALIBRY.MLB; 1 1 
~$255$D eae OBJJLIB.MLB;1 0 
“$255$DUA28: Syst IBISTAR LET.MLB;2 10 

TOTALS (all Libraries) 12 


1505 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:NCPCONMAN/OBJ=OBJ$:NCPCONMAN MSRC$:NCPCONMAN/UPDATE=(ENHS$:NCPCONMAN) +E XECML$/LIB+SHRLIBS$:NMALIBRY/LIB+SHRL IB$:NET/LIB 
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